Voorbeeld van de instructie Reset

Dit voorbeeld maakt gebruik van de instructie Reset om alle geopende bestanden te sluiten en de inhoud van alle bestandsbuffers naar de schijf te schrijven. De Variant-variabele FileNumber wordt als tekenreeks en als nummer gebruikt.

Dim FileNumber
For FileNumber = 1 To 5    ' Loop 5 times.
    ' Open file for output. FileNumber is concatenated into the string
    ' TEST for the file name, but is a number following a #.
    Open "TEST" & FileNumber For Output As #FileNumber
    Write #FileNumber, "Hallo allemaal"    ' Write data to file.
Next FileNumber
Reset    ' Close files and write contents
        ' to disk.